home *** CD-ROM | disk | FTP | other *** search
- object frmZoom: TfrmZoom
- Left = 423
- Top = 172
- Width = 211
- Height = 223
- Cursor = crCross
- BorderIcons = [biSystemMenu]
- Caption = 'Zoom'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- FormStyle = fsStayOnTop
- KeyPreview = True
- Menu = MainMenu1
- Position = poScreenCenter
- OnClick = FormClick
- OnClose = FormClose
- OnCreate = FormCreate
- OnHide = FormHide
- OnKeyUp = FormKeyUp
- OnMouseDown = FormMouseDown
- OnMouseMove = FormMouseMove
- OnMouseUp = FormMouseUp
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object lblHowTo: TLabel
- Left = 6
- Top = 101
- Width = 150
- Height = 65
- Alignment = taCenter
- AutoSize = False
- Caption =
- 'Hold the left mouse button down on this window then drag to the ' +
- 'area you want to magnify'
- WordWrap = True
- OnClick = FormClick
- OnMouseDown = FormMouseDown
- OnMouseMove = lblHowToMouseMove
- OnMouseUp = FormMouseUp
- end
- object bvlTop: TBevel
- Left = 0
- Top = 0
- Width = 158
- Height = 2
- Shape = bsTopLine
- Style = bsRaised
- end
- object bvlLeft: TBevel
- Left = 0
- Top = 1
- Width = 2
- Height = 65
- Shape = bsLeftLine
- Style = bsRaised
- end
- object bvlBottom: TBevel
- Left = 0
- Top = 160
- Width = 158
- Height = 2
- Shape = bsBottomLine
- Style = bsRaised
- end
- object bvlRight: TBevel
- Left = 156
- Top = 1
- Width = 2
- Height = 45
- Shape = bsRightLine
- Style = bsRaised
- end
- object imgMouseUp: TImage
- Left = 44
- Top = 4
- Width = 62
- Height = 87
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Visible = False
- end
- object imgMouseDown: TImage
- Left = 44
- Top = 12
- Width = 62
- Height = 87
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Visible = False
- end
- object trZoom: TTrackBar
- Left = 160
- Top = 4
- Width = 33
- Height = 150
- Max = 16
- Min = 1
- Orientation = trVertical
- Frequency = 1
- Position = 2
- SelEnd = 0
- SelStart = 0
- TabOrder = 0
- TickMarks = tmTopLeft
- TickStyle = tsAuto
- OnChange = trZoomChange
- end
- object MainMenu1: TMainMenu
- Left = 65528
- Top = 136
- object mnuHelp: TMenuItem
- Caption = '&Help'
- object mnuHowToUse: TMenuItem
- Caption = '&How To Use'
- OnClick = mnuHowToUseClick
- end
- end
- end
- object tmrRefresh: TTimer
- Interval = 200
- OnTimer = tmrRefreshTimer
- Left = 80
- Top = 8
- end
- object tmrDelayed: TTimer
- OnTimer = tmrDelayedTimer
- Left = 88
- Top = 44
- end
- end
-